home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #2
/
Monster Media No. 2 (Monster Media)(1994).ISO
/
prog_bas
/
ivbsrc.zip
/
PRTINFO1.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1994-07-03
|
3KB
|
88 lines
Form1
Get default printer info
MS Sans Serif
Form1%
Command2
Command1
Get Default Printer Info
lblLPI
Label1
lblPort
lblDriver
lblPrinter
Form_Click
GetProfileString
lpAppName
lpKeyName
lpDefault
lpReturnedString
nSizeU
Command1_Clickg
lpRetStr
NumChars&
NullStr
lpRet
koRetStr
CommaPos1`
CommaPos2=
lblPrinter
Caption
lblDriver
lblPort
Command2_Click
DeviceInfo
Device_Error
PageScale
GetDeviceCaps
Printer
LOGPIXELSX
LOGPIXELSYn
FALSEG
POINTAPI
PageSizex
Result8
Escapeu
GETPHYSPAGESIZE
Orientation
GETSETPRINTORIENT
lblOrientation
X_Size
Y_Size
Vertical_resolution
Page_Size
lblPaperSize
lblXSize
lblYSize
lblVerticalResolution
lblScaleX
lblScaleYT
Lines_Per_InchB
Pixels_Per_Inch
TextMetrix
TEXTMETRIC
GetTextMetrics
tmHeight
tmExternalLeading
Lines_Per_Inch
lblLPI^
Kernel|
Command1_Click
windows"
device
Printer: "
Driver:
Port:
lblOrientation.Caption = "Orientation: Portrait")
lblOrientation.Caption = "Orientation: Landscape"
lblOrientation.Caption = ""
lblPaperSize.Caption = "Page Size:" + Page_Size$ + " inches"
lblPaperSize.Caption = ""a
lblXSize.Caption = "X Size = " + Str$(X_Size!)
lblYSize.Caption = "Y Size = " + Str$(Y_Size!)
lblVerticalResolution.Caption = "Vertical Resolution = " + Str$(Vertical_resolution)
lblScaleX.Caption = "Pixels X: " + Str$(PageScale.X)
lblScaleY.Caption = "Pixels Y: " + Str$(PageScale.Y)
Command2_Click
DeviceInfo
Lines_Per_Inch